#### Exerccio 9 ####

#Exerccios de Construo de Funes
#Exerccio Programar 1.: QUE FRIO!
#Tarefa: Construa uma funo que calcula automaticamente o valor de graus Celsius, sabendo-se a temperatura em Fahrenheit. 

#C = 5/9 * (F- 32) 

# Funo Fapracel- lindo nome !

fapracel=function(x)
		


fapracel = function(x)
	      {
	      fahrenheit=(x)
	      celcius=5/9*(x-32)
		return(celcius)}

fapracel
str(fapracel)
args(fapracel)#ok


#vamos testar !
# de acordo com o: Fahrenheit to Celsius Converter do National Weather Service
#site:http://www.wbuf.noaa.gov/tempfc.htm

#100 Fahrenheit  igual a 37.77777777777778 celcius
# de acordo com a funo fapracel :

fapracel(100)#  37.77778 - Vitria !!! 


#Exerccio Programar 2. : Anlise exploratria simultnea de duas variveis
#Tarefa: Crie uma funo para sada grfica de anlises exploratrias de duas variveis. Essa sada pode ter por exemplo boxplot, histograma, qq norm e y por x. A funo deve permitir a entrada de dois objetos vetores de mesmo tamanho (x e y).
#Caso os valores de x e y forem desenhados em um mesmo grfico, defina cores diferentes. As legendas devem ser em portugus e a sada (return) deve apresentar o sumrio das duas variveis e o coeficiente de correlao. 

#DICAS: 

#Para histogramas com variveis em um mesmo grfico pode ser utilizada a funo multhist() do pacote plotrix. Baixe, instale o pacote e veja o help da funo.
#Utilize o cdigo do eda.shape, apresentado em aula como ponto de partida.
#Lembre-se que em algumas funes grficas o argumento add=TRUE, adiciona elementos no grfico anterior.

search()# nada de plotrix
###instalando###
require(plotrix)
search()#ok 
help(multhist)

# Dada uma lista, traa um barplot lado a lado, contendo os histogramas dos elementos 
#multhist(x,beside=TRUE,freq=NULL,probability=!freq,plot.it=TRUE,...)

multhist(x)
plot(x)
qqnorm(x)
qqline(x)


var1=c(1,2,3,4,10,4,5,9)
var2=c(5,2,9,9,10,30,9,2)


expl.dupla = function(x,y){

 		par(mfrow=c(3,1),bty="l")
		qqx=qqnorm(x, col="blue", xlab="Varivel a", ylab="")
		qlx=qqline(x)
		qqy=qqnorm(y,col="red",xlab="Varivel b", ylab="")
		qly=qqline(y)
		box=boxplot(x,y,col="gray", names=c("Varivel a", "Varivel b"))
				}

expl.dupla(var1,var2)
		


		



		

			






help(list)

















	

